home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / edt10.lha / Beispiele / LinkChanges.edt < prev    next >
Text File  |  1995-02-28  |  2KB  |  30 lines
  1. /* Beispiel: aktualisieren eines Versionsstrings mit dem Format */
  2. /* $info: dd/mm/yy, hh:mm:ss, version n */
  3. OPTIONS RESULTS
  4. 'Get' POSITION                 /* alte Position merken */
  5. p0=RESULT
  6. 'DisplayOff'                   /* Darstellung ausschalten */
  7. 'Set' POSITION 0               /* von Beginn an suchen */
  8. 'Find' NEXT "$info:"         /* Anfang suchen */
  9. 'Get' POSITION                 /* Position erfragen */
  10. IF RESULT > 0 THEN DO          /* gefunden? */
  11.   'LinkChanges'                /* Änderungen zusammenfassen */
  12.   'Right' 10                   /* zum Datum gehen */
  13.   'Delete' 8                   /* altes Datum löschen: dd/mm/yy */
  14.   'Insert' DATE(European)      /* neues Datum einsetzten */
  15.   'Right' 2                    /* zur Zeit gehen */
  16.   'Delete' 8                   /* alte Zeit löschen: hh:mm:ss */
  17.   'Insert' TIME()              /* neue Zeit einsetzen */
  18.   'Right' 10                   /* zur Versionsnummer gehen */
  19.   'Read' WORD                  /* Versionsnummer einlesen */
  20.   ver=RESULT+1                 /* Version um eins erhöhen */
  21.   'Delete' WORD                /* alte Versionsnummer löschen */
  22.   'Insert' ver                 /* neue Versionsnummer einsetzen */
  23.   'Title' "Version:" ver       /* ... und in der Titelleiste anzeigen */
  24.   'LinkChangesDone'            /* fertig */
  25.   END
  26. ELSE
  27.   'Title' "Keinen Versionsstring gefunden!"  /* Fehlermeldung */
  28. 'Set' POSITION p0              /* zur alten Position zurückgehen */
  29. 'DisplayOn'                    /* Fensterinhalt aktualisieren */
  30.